home *** CD-ROM | disk | FTP | other *** search
/ Workplace Effectiveness:…ecision-Making Strategies / Workplace Effectiveness: Decision-Making Strategies.iso / pc / Files / Plan.dxr / 00008_PRINT & Write text file.ls < prev    next >
Encoding:
Text File  |  1998-12-16  |  1006 b   |  31 lines
  1. global gMasterData
  2.  
  3. on printButton
  4.   if iAmActivated(gMasterData) then
  5.     getPrintData()
  6.     set vThisField to string(getUserArea(gMasterData)) && "field"
  7.     print(the text of member vThisField)
  8.   else
  9.     alert("Printing is unavailable until an activity is completed.")
  10.   end if
  11. end
  12.  
  13. on getPrintData
  14.   set vThisField to string(getUserArea(gMasterData)) && "field"
  15.   set the text of member vThisField to EMPTY
  16.   set vTempText to EMPTY
  17.   put "---- An Action Plan ----------" & RETURN & RETURN after vTempText
  18.   put "Use this activity to work through a decision you may be considering and would like to take action on." & RETURN & RETURN after vTempText
  19.   put getBigString() & RETURN & RETURN after vTempText
  20.   set the text of member vThisField to vTempText
  21. end
  22.  
  23. on getBigString
  24.   set vText to EMPTY
  25.   repeat with X = 1 to 6
  26.     put line X of field "print text" & RETURN after vText
  27.     put the text of member ("pfield" & string(X)) of castLib "Shared" & RETURN after vText
  28.   end repeat
  29.   return vText
  30. end
  31.